program testArrayAssignmentValid;
class testArrayAssignmentValid

BEGIN

VAR XRay : ARRAY[0 .. 4] OF ARRAY[0 .. 4] OF integer;
        YRAY : ARRAY[0 .. 2] OF integer;

FUNCTION testArrayAssignmentValid;
BEGIN
	XRay[2][1] := 2;
        YRay[0] := 1;
	print XRay[2][YRay[0]]
END

END

														       .

